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This dociiment is a brief but conplete description of a 
new language invented and implemented by the authors. This 
language is intended to be a suitable vehicle for programs 
which woulld otherwise be written in machine language for reasons 
of efficiency or flexibility. It is part of a system which 
also includes a compiler capable of producing reasonably 
efficient object code and a runtime which implements the input- 
output and string-handling featTires of the language as well as 
a fairly elaborate storage allocator. The system automatically 
takes csire of paging arrays and blocks from the drum if they 
have been so declared. 

The Language ; 

A QSPti program consists of statements separated by semi- 
colons. Carriage returns aad blanks have no significance in the 
language except that they: 

1. Act as word (and comment) delimiters. 

2. Are taken literally in string and character constants. 
Warning; This is one of the many features of the language which 
can cause trouble for the unwary programmer. It is quite 
possible t0 write two statements without the separating semi- 
colon and *ind up with something which is legal, but not at 

all what wfts intended. It is a general characteristic of QSPL 
that it is very permissive; many things are legal which are not 
at all rea$onable. 

A statement may be: 

1. A declaration. 

2. A listing control statement. 
3- An end statement. 

k. A function definition. 

5. A comment, which is a line beginning (after a 
serai-colon or another comment) with an * and 
ending with a carriage return (not ; ) . 

6. A FOR statement. 
t. An IF statement. 
8. Ah expression. 

Most statements are expressions, so we will discuss them first. 
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Expressloijis 

An expression is made up of operands separated by operators. 

Parentheses are allowed to any reasonable depth. The operators 

are arrsmged in a hierarchy of binding strength or precedence. 

Those at the top of the following list are executed latest, so 

that a+b*<t is a+(b*c). 

& denotes successive evaluation. The value of the result 
i^ value of the last expression in the string. Thus 
a-^b & c+d; or more plausibly f(a,b) & g(l,y); which causes 
both functions to be called in the order in which they 
aife written. 

WHERE is similar to 8e, but causes the following expression to 
be evaluated first. It may not be iterated. Thus 
f(|x,y) WHERE y<rlk; 

FOR tajkes the form <expressiori> FOR <for clause. The 

extpression is evaluated repeatedly under control of the 
for clause (see below for the syntax of this construct). 
The final value of the expression is discarded, and the . 
vallue of a« expression involving FOR is undefined. Of O' 
<:!6!urse, som:fething like v 

r ) A[I,J] «^0 FOR I = 1 TO W FOR J = 1 TO M is legal. 

V — '' ' / 

IF tajces the form <expression> IF <expressiori> ELSE <expressiori> 
The second expression is evaluated. If it is non-zero, 
th^ first expression is evaluated. Its value beccxaes the 
value of the whole thing, and the third expression (which, 
by the way, may contain another IF), is skipped. Otherwise 
the first expression is skipped, and the third is evaluated. 
Thus x<4 IF y=l6 ELSE x^ IF :^~0 ELSE x<-6. If the final 
ELSE is omitted, will be supplied. 

<- is ^ the assignment operator. It ranks on the same level 
as 'for its left-hand operand, and just below IF for its 
right-hand one. The right-hand operand is evaluated, and 
its value becomes the value of the left-hand one. The 
vrii0le expression is then treated as though only the left- 
hahd side had been written. 

OR is the logical or. If either operand is a relation (or 
an expression containing logical operators connecting at 
least one relation), then the result is or 1 depending 
on whether both operands are true (non-zero). If both 
operands have ordinary values, these values are combined 
with the machine's MRG instruction. Thus a<U OR b<5 is 
trme if either relation holds; a<k OR x+1 is true if a 
<1+ or if x+1 is not zero. In both these cases, the second 
operand is not evaluated if the first one is true. But 
f(x,y) OR z is the 2U-bit logical or of z and the value 
of the fvinction call. The operands of an OR are never 
re-tordered. 
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AND is the logical and. It is exactly the same as OR in 
EOR the way it treats its operands, differing only in the 

result. EOR always converts its operands to values 

and uses the EOR instruction. 

WOT is the logical not. If its single operand is a relation 
(isee discussion of OR) its value is inverted (O beccanes 1, 
1 becomes O) . Otherwise, a 24-bit complement is taken 
(with EOR = -1) . 

« # < <C» > >= are the relations. Each one evaluates its operands 
aind then performs the indicated test. For these and all 
the arithmetic operations, the operands may be re-ordered 
if it suits the compiler's convenience. 

MOD a MOD b is the remainder of a/b 

+ - perform SU-bit integer addition or subtraction. 

* / perform 2i4-bit integer multiplication and division. No 

LSH test is made for overflow on division. The shift operations 

RSH shift the first operand the number of places indicated by 

LCY the second operand. Vacated bits are replaced by zeros. 

ROY The cycle operators do an end-around shift. 

+ - (unary operators) The unary + and - do the obvious thing. 
GOTO ob is a noise word and is ignored. It may be convenient 
^x RETURN for constructions such as this: DO f(x,y); GOTO transfers 

V_y DO to the address which is the value of its operand (see the 

discussion of labels below). RETURN evaluates its operand. 
It leaves the value in A ajnd returns through the return 
l^nk of the most recently defined function (see below). 
It this is not desired, the RETURN may be modified by 
f(t)llowing it with FROM <expressionL>. In this case the 
r^tiirn is to the address which is 1+the value of the 
ejtpression. Thus RETURN x+y FROM fcnl; the prograjtumer 
should be sure that fcnl has a proper retxirn address in 
it, since the compiler will not check this. The operand 
of RETURN may be omitted. 

(), (function calls). The arguments of the function are 

enclosed in the parentheses, separated by commas. Thus 
f^x,yH5,z). Note that the function may be specified by 
an expression; thus (a+b)(x,y-+5^z) is perfectly legal. 
It causes control to be transferred to the location which 
is the value of the expression a+b with the specified 
arguments. Beware. The values of the first three function 
arguments are transmitted in the A,B, and X registers 
respectively. The addresses of the values of further 
ailguments are put into NOP instructions which follow the 
filnction call. The function is called with a POP which 
leaves the link in and transfers to the location 
addressed by it. Thus f(a,yt5,z) compiles LDA y;ADD'=5, 
^^ CAB; U)A a; LDX z; CALL* f. See below for a discussion 

(^y' of function declarations. The function expects control 

to be returned to the following location with the value 
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of the function in A. Note that this calling convention 
is not the same as Fortran's. In particular, in the 
al!)ove example nothing the function does (within reason) 
cto affect the value of a or z. It is possible to 
transmit the address of a or z with the reference operator, 
however (see below) . 

♦ (tailing) . The . must be followed by a field name (see 
discussion of declarations below). The resulting object 
refers to the specified field relative to the address which 
is the value of the first operand. Thus, if we have 
dScIARE field a(l), b(2); and if x contains 1^3, then 
x.a refers to location lit-l*-, x.b to 1*4-5, x.a.b to 2+the 
contents of location ikk. A tailed operand may appear 
on either side of an assignment operator. Cf the 
discussion of PAGED declaration for the treatment of 
paiged blocks. 

$ (binary, same precedence as .). The construct T$P is 

a]^ost equivalent to^T.F. I.e., it refers to the bits 
of T ( not the word addressed by T) selected by F. The 
wdrd displacement of F is ignored, and F must not 
ciioss a word boundary. 

(? $ (reference and indirection) . The reference operator 

takes an operand which must be an address (i.e. acceptable 
oni the left side of an assignment) and returns this address 
asi its value. Note that this implies that iteration of the 
reference operator is illegal (in fact it does not make 
any sense) . The indirection operator $ evaluates its 
oi)erand and returns this value as an address . The sequence 
@$ is equivalent to no ojieration, except that $ on an 
address is compiled with the machine's indirect bit, 
and will therefore be affected by the presence of indirect 
or index bits in the contents of address. If we have 
written DECLARE FIELD s(o); then <e>.s is equivalent . aR.. 
to $<e>, with the exception poted above. 

! I _ ' U, /■■'i'i-'" 

[] (subscripting). A single subscript is allowed. As with v' 
function calls, the object being subscripted may be an 
arbitrary expression. If it has been declared as an 
axpay, the compiler loads the subscript into X and compiles 
an indirect reference through the array name. I.e. it 
expects the array name to contain the base address of 
thfe array with the index bit on. For any other expression, 
the [] operator is equivalent to $ +. Thus (a-b)[c OR d]+l 
compiles 

LDA a; SUB b; STA t; LDA c; MRG d; ADD t; CAX; LDA 0,2; ADD=1; 
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Primaries 

The primaries for expressions may be numbers, names, or 
character constants. 

A nianter is a string of digits, possibly followed by B or D, 
possibly followed by a single-digit scale factor. B makes the 
number octal; if it is absent, decimal is assumed. Thus 
lOOD = 1D2 = ll+i<-B = lB2-afl^B = 100. 

A name is a string of any number of letters and digits 
beginning with a letter. Only the first six characters of the 
name are significant. A name must be declared (see below). 
All names except parameters and fields are treated in exactly 
the same way when they occ\ir in expressions (except for subscrip- 
ting). E.g. a string name refers to the pointer to the string 
descriptor which is the value of the name. Thus, if S is a string 

S ♦-A+l 
simply stores A+l into S; this is probably not reasonable. 
Functions are provided to convert between strings and numbers. 

There are about 80 reserved words (see Appendix B) which 
may not be used as names. 

A chajracter constant has the form '<three or fewer pseudo- 
characterS> ' , and may be used wherever a constant is used. A 
pseudo-character is any character other than &, or & followed 
by one of the following: 

1. Another & or a ' . The two are equivalent to a 
single & or ' in the constant. 

2. Three octal digits. The number thus defined, 
truncated to 8 bits, counts as one character. 

3. A letter. The ASCII (internal) code for the 
letter + lOOB is the value of the pseudo - character . 

The characters are right- justified in the constant, which is 
filled out with blanks (o) on the left. It is an error to 
have more than 3 pseudo-characters in the constant. 

A string constant has the form "<any number of pseudo- 
characterS>". It is legal only in the context <string name> «- 
<string constant>. A descriptor will be created which points 
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to the constant string. If the value of the name is 0, space 
will be allocated for the descriptor. Writing into the string 
will alter the constant. 

A variety of operations are provided for converting field 
names into constants: 

1. A field name F appearing in any context other than 

F ( 

. F 

$ F 
i$ equivalent to a constant whose value is the word 
displacement of the field. 

2. The fxinction FSHIFT(f) has 23 -the rightmost bit 
position occupied by F as its value. F must not cross 
word boundaries. The value of PSHIFT is a constant. 

3. The function FMASK(f) has as value a constant which has 
one bits in positions selected by the field as its value. 
It is equivalent to (-l)$F. F must not cross word 
boundaries . 

k. F^expression) has the value of T after the statements 

T«*0; T$F<-expression 

hslve been executed. F must not cross word boundaries. 
1 t/^ Any ejtpression involving operators of precedence higher 
than'T^^and constant operands will be evaluated by the compiler, 
yielding a result which behaves exactly like a constant. 

Declarations 

Variables are declared with DECLARE or FUNCTION statements 
or by appearing as labels. The syntax of DECLARE is 
DECLARE [FIXED or PAGED] [INTEGER or STRING] [ARRAY] [EXTERNAL or 
ENTRY or LOCAI§i] ■<namelist>. The stuff after the DECLARE may 
be repeated as many times as desired. Once FIXED, PAGED or 
ARRAY has been used it remains in effect for the remainder of 
the current DECLARE statement. INTEGER is assumed if it is 
omitted, but once STRING has been used it remains in effect 
until INTEGER appears again. Each name in the namelist may be 
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(^) preceded "by $ (which makes it an entry) or by * (which makes 

it external, i.e. prevents storage fran being assigned for it). 
If ARRAY is present, a name may be followed by an expression 
in parentheses (or brackets). Thus 

ARRAY A[12], B[Xt2+lU] 
If FIXED is absent, this construct makes the DECLARE an executable 
statement; every time it is executed, the expression will be 
evaluated and that many cells assigned for the array. The 
base address of the region assigned, with the index bit set, 
will be stored in the name. Any previous storage assigned to the 
name will not be released automatically. The programmer must 
release it explicitly, if he wants to, with the FREE function. 
The system does not check to see that an array declaration is 
executed before the array is referenced, or that the program 
does not store other things into the array name. If either one 
of these things happens, a mess will probably result unless the 
programmer knows what he is doing. If a name is declared ARRAY 
r~ ^'j without^any storage being assigned, the system will assume that 

its value is a pointer to an array with the index bit set. 
I.e., it will compile 

LDX I; LDA* A; STA B 
for B «-A[ll. 
Example : 

DECLARE INTEGER a,b, STRING d, $gl, g2, EXTERNAL g3, g^, 

ARRAY e(x+y[U]), INTEGER c(lO); declares two scalar 
integers, one integer array which will be assigned 10 locations 
when the declaration is executed, two local scalar strings 
(d and g2), one local string array which will be assigned 
x+y[U] locations when the declaration is executed, one scalar 
string which is an entry (gl), and two scalar strings which are 
assumed to be defined elsewhere (g3 and gk). 

If a name is declared with FIXED ARRAY, thus: 

DECL/VRE FIXED ARRAY A[20], B[ 10]; 
this causes the nimiber of words specified to be allocated by the 
(^ ' compiler and the location addressed by the name to be initialized 

to the address of the block allocated with the index bit on. This 

declaration is equivalent to 

DECLARE ARRAY A[ 20], B[10]; 
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except that it is not an executable statement but is done once 
and for all by the compiler. 

A name on an array may be declared paged by putting the word 
PAGED in front of its declaration. This attribute, once mentioned, 
applies to all the names declared following it in the same state- 
ment. If an array is declared PAGED (not a FIXED array, of course), 
space will be allocated for it on the drum when the declaration 
is executed, and all references to it thereafter will be made to 
the drum. Correct access to the array will be obtained only if 
it is subscripted in the usual way: A[l]. It is not true that 
(A+l) [I] is equivalent to A[l+l], for example, as is the case 
for core arrays. 

If a name declared paged is not an array, the only 
effect is that when it is tailed the system will assume it 
contains a drum address. Such an address can only be correctly 
obtained with FMAKE (see below). It is the programmer's 
responsibility to see that: 

a. It does contain a drum address generated with HMAKE. 

b. The field name used for tailing has a word displace- 
ment less than the block size specified by the MAKE. 
Unpredictable errors will occur if this rule is not 
observed . 

c. No arithmetic is done on the address. A construct 
like (P+2).X is not legal if P is paged. It will 
result in P being treated as though it were not 
paged. 

Declaratiohs of fields are not affected by PAGED. Indirection 
($) should not be used on a PAGED pointer. 

When a name is declared to be a string, a single storage 
location is reserved for it unless FIXED has been used. Strings 
are specified, however, by four-word string descriptors. The 
address of such a descriptor must be put into the string variable 
before it is used in any string operation. For non-FIXED 
strings, this is usually done with the SETUP function, possibly 
preceded by a MAKE; alternatively, the address of a descriptor 
obtained in some other way can be used. If a string variable 
is not projjerly initialized, the consequences of using it in 
any string operation are likely to be serious. 
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If a string declaration is preceded by FIXED, the four-word 
descriptor is assigned by the ccanpiler and its address is the 
initial value of the string. If a FIXED STRING is followed by 
a parenthesized expression, that many characters are allocated 
for the string and the descriptor is initialized to point to 
the area thus allocated. Example: 

DECLARE FIXED STRING S,T,U(5),V(24o); 
allocates string descriptors for S and Tj they must be set up to 
point to strings by SETUP. It also allocates 5 characters for U 
and 2^0 for V and sets up the descriptors properly. 

An integer may be initialized by following its name with 
«- constant or <-name. Thus, 

DECLARE A <- 3, B «- l4; C <- A; 
makes 3 the initial value of A, ik the initial value of B. Of 
course, any expression which can be evaluated by the compiler 
may be used as a constant. This is not the same as a PARAMETER 
declaration (see below). The use of this construct is not 
recommended if the program changes the values of the variables, 
since the program must then be reloaded in order to be restarted. 

A FIXED ARRAY can be initialized in the same way: 
DECLARE FIXED ARRAY A[lO] <- 1,3,5,7,11,13; 
The first six elements of A are initialized as indicated. The 
remaining fbur elements are initialized to 0. 

A string or a fixed string array may be initialized in the 
same way, but the initial values must be string constants. 
Warning: Writing into initialized strings will destroy the 
contents . 

If any declaration causes space to be allocated at the point 
in the program where the declaration occurs, a branch over it is 
compiled. Declarations may therefore be freely interjxslated 
in the program. 

Another form of DECLARE is the following: ^J 

DECLARE FIELD name (constant [: constant^ constant] ) which 
defines a field. Lots of fields can be defined if desired. The 
first constant specifies the word displacement of the field, the 
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other two the bit positions in the word. Bit positions can take 
on values between and hj. A field may span two words, but it 
may not be more than 2k bits long. Thus: 

DECLARE FIEtD a(0),b(l),c(2),cl(2:0,5),c2(2:3,20),xyz(2:12,23); 
defines six fields. The last three might be thought of as sub- 
fields of c, but they do not have to be used in this way. If 
p were a pointer to a three-word data object, for example, then 
p.xyz would refer to the last 12 bits of the third word of the 
object. Such objects can be created from nowhere with the MAKE 
function or, of coirrse, may be allocated by the programmer. 

Names declared as FIELD are output to BDT with their word 
displacements as value. If they appear not following a ".", 
they are treated as constants equal to their word displacements. 
Thus, $(ptr+b) = $(ptr+l) s ptr.b. 

The declaration 

DECLARE PARAMETER cl«-l,c2«-2,c3<-3; makes the names cl,c2, 
c3 equivalent in all ways to the constants 1,2,3 for the rest 
of the program. Any constant may appear on the right of the «-. 
Note again that any constant expression may be used where a constant 
is required. \(\L^ !j f-\|A^H.I 

The declaration 

DECLARE INTEGER Q=R, S=T[3] is legal only if R has 
already been declared and T has already been declared as a 
fixed array. It causes Q to be assigned to the same location 
as R, S to the same location as T[3]. 

A function is defined by 
FUNCTION name(arglist); 
Each argument in the arglist can be preceded by INTEGER, STRING 
or ARRAY and is declared automatically. INTEGER is assumed unless 
otherwise specified. If ARRAY is specified, the index bit will 
be merged into the value supplied. A name can be redeclared in 
a function definition (this is illegal in any other context), 
but only if the redeclaration exactly matches any previous 
declaration. The system creates a retxurn link by prefixing 
the function name with X. The statement FUNCTION f (a, ARRAY b, 
STRING c) would compile STA a; CM; MRG = 2B7; STA b; STX c; 
LDX 0; STX Xf ; 
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V-y^ If additional arguments ^IKTEGIR d, e were s-uppUed, the code 

LDA* 1,2 STA d; EDA* 2,2; STA e; would be added. 
The ftmctiion name itself is also declared "by this statement. 
A storage location is reserved for it, and the address of the 
first word of the function (Sm a above) is put into this address. 

The link may be specified explicitly, if desired, as 
follows: FUNCTION F{Q,R), LINK W; 

No explicit provision is made for recursive functions. 
However, since the return link is available, the programmer can 
save and restore it himself. If a function call appears in a 
complex expression, it is not safe to re-execute the expression 
inside the function, since the expression ma,y use temporary 
locations irtiich are not saved when the function is called. 
Beware. 

A symbol is declared as a label by writing it at the 
beginning of a statement followed by a colon. It is treated 
exactly like a function name: a storage location is reserved 
\_ for it and initialized to the address of the first instruction 

of the statement. Any statement can be labeled. A label is 
assumed to be an integer scalar. If we have A: ... ; GOTO A; 
this will compile :A BSS 0; ... ; BRU* A; . . . ; A ZRO :A; 
so that the right thing happens. 

These conventions for arrays, strings and labels make it 
very easy for them to be transmitted as arguments. 

Control Sttttanents 

The construction 

IP expression DO; 



EI^IF expression DO; 

repeat or more times 



ELSE DO; 

optional 

ENDIF; 



} 
) 
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is legal with the obvious meaning. Any sequence of statements 
balanced with respect to IF and EKDIF may appear in place of the 
dots. Of course, IF maybe nested. Proper use of indentation 
is strongly recommended. 
The construction 

FOR for clause DO; 



EWDFOR; 
is also allowed. The arbitrary sequence of statements balanced 
with respect to FOR and ENDFOR which is symbolized by the dots 
is executed repeatedly under control of the for clause, whose 
syntax has three forms: 

<name> <- <expression> WHILE <expressiori> 
which causes the value of first expression to be assigned to the 
name and the second expression tested each time around the loop. 
When the test fails (value of the expression=0) repetition stops. 
The assignment and test are performed once before the loop is 
executed ; 

<name> «-<expression>, <expression> WHILE <expression> 
which is the same as the first form except that the first expression 
is used for the first assignment, the second one thereafter; 

<name> <-<expression> [BY <expressiori>] TO <expressioti> 
with the obvious meaning. If the BY is omitted, an increment 
of 1 is assumed. Repetition continues until the name is greater 
than the TO expression, unless the latter is a negative constant , 
in which case it continues until the name is less. A test is 
performed before the loop is executed for the first time. 
The special cases 

I ♦- <expression> BY 1 to N 

I ♦-<expressiori> BY -1 to 
are recognized and ccanpiled more efficiently. 
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Miscellaneous Statements 

Listing may be controlled with the statements LIST and NOLIST. 
Either may be followed by SOURCE, CODE or BINARY, and ttirns on or 
off the specified form of output. It is not a good idea to turn 
binary output on and off, since this will in general result in an 
unloadable result. 

A program should be terminated by an END statement. 

Special Functions 

The following special functions are a standard part of the 
language. They provide all the built-in storage allocation, string 
handling and input-output facilities. If more elaborate facilities 
are required, recourse may be had to machine -language routines. The 
necessary linkages are described xmder function calls and 
declarations above. 

1. Storage allocation functions 

MAKE (express ion) creates a block of storage of the length 
specified by the expression (but of at least two cells) and returns 
a pointer to this block as its value. In fact, one extra cell is 
assigned by the system; the user should keep his hands off this cell, 
which is the one before the one pointed to (be the value of the MAKE 
function. An alternate form is MAKE (expression, array name) which 
assigns the block out of the specified array, which must have been 
properly initialized beforehand by a call of SETARRAY(expression, 
array name); in this case no prefix word is created. Only blocks of 
the size specified in the call of SETAKRAY can be assigned in this 
way. Blocks of any size can be assigned by a simple MAKE. 

To allocate space on the drum the fimction IMAKE should be used. 
It is exactly like MAKE, except that the second argxment, if present, 
should be a paged pointer to an object near which the new space 
should be assigned if possible. Proper use of this feature will 
greatly improve the efficiency with which paged objects are accessed. 
See the discussion of the PAGED declaration for further information 
about the proper use of addresses obtained from FMAKE. 

To release a block of storage, do FREE (express ion) (or 
FREE (expression, array name)), where the value of the expression 
is a pointer to the block. The function has no meaningful value. 
The storage allocator will attempt to coalesce freed blocks, but 



C) 



Page ll+ 

since it cannot move blocks around, it is possible to fragment 
storage hopelessly by acquiring and releasing blocks of many 
different sizes in an indiscriminate manner. If the system runs 
out of space, it will complain and quit. Note that FREE (MAKE (l|-)) 
acquires and immediately releases a block of four words. It is 
exactly equivalent to NOP (except for timing). FREE also works 
for drum space. 

To copy one block of storage into another one of equal size, 
use BCOPY(expression, expression). The first expression is a 
pointer to the source, the second to the destination. These 
must be pointers acquired by MAKE (or carefully fabricated) 
since the length of the block is determined from the contents of 
the extra hidden word provided by MAKE. The source block must 
have been created by a MAKE with a single argument. 

2. Paging facilities and functions 

The paging facilities provide a means for the user to 

, 19 . 
allocate and access a large (up to 2 -^ words) address space, 

by buffering parts of this address space between core and drum 

in fixed-size pages. The user can specify the page size, the 

amount of core space to allocate for buffers (which can be 

changed dyt^amically during execution), and the size of the 

address space; individual pages may be locked into core for a 

time and later allowed to be swapped out again; the user's paged 

data may be divided into a number of categories, which allows 

more efficient allocation of space by grouping objects of the 

same category on the same page. 

At the time that INTT is called (see the INITIALIZE 

fimction in section 6), certain cells in the rimtime are 

examined to determine the setup of the paging logic. The names 

of these cells are all pre-declared EXTERNAL. The cell NPL 

contains the page size as a power of 2, which must be between 

8 and 11. The cell NPG contains the size of the desired address 

NPL 19 

space as a multiple of 2 : the size cannot exceed 2 ■^. If 

NPG contains a zero, it is assumed that no use will be made of 

the paging logic, and any calls on it will produce error comments. 
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The cell NPB contains the nimber of core buffers to be provided. 
If it contains 0, all available space will be used for buffer. 
The cell NiPC contains the highest category number which will be 
used. The cell FM contains a positive number if the direct drum 
access machinery, BRSs 12*^-127, is to be used for storing paged 
data, or a negative number if a random file called /$QEDATA. is 
to be used; the former is somewhat more efficient, especially 
if the address space is large, but the latter can be accessed 
by other programs via the ordinary file machinery whereas the 
former cannot. 

A few other cells are of interest. The cell PCAT is 
examined whenever a call is made to PMAKE. If it contains a 
non-zero number, the new block will be allocated on a page 
reserved for data of the designated category. If it contains 
a zero, the new block will be allocated on some convenient page 
without reference to category. A call of IMAKE with a valid 
drum address as the second argument takes precedence over the 
setting of PCAT. 

A page may be locked into core with LOCK(X), where X is a 
drum address; the value is the corresponding core address, which 
is guaranteed to remain valid until the page is unlocked. The 
function UNLOCK(A), where A is a core address, stores the 
corresponding drum address in a cell called PADDR and returns the 
old lock count (which is incremented by LOCK and decremented if 
non-zero by UNLCXIK) as value; it is all right to UNLOCK an 
lanlocked buffer. The cell NUP always contains the number of 
buffers which are not locked at the moment. 

Page buffers are allocated downwards (towards low-numbered 
addresses) from the initial setting of a cell called ESTORG; 
the bottom of the buffer area is put into the cell EARRAY by 
the INIT operation. If the user wants to reduce the amount 
of space available for buffers, he may use BPUT(X), where X 
is a core address in a buffer. The buffer will be returned to 
the pool of space available to the core allocator (MAKE). The 
converse oj)eration is BGET(X), which restores the buffer for 
use by the paging logic. Note that the buffer area is defined 
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at INrr time (as the NPB X 2^"^ cells just below (ESTORG) -2^^ 
and BPUT and BGET may only be used on addresses in this range. 
INIT allocates space up from BSTORG for tables for the drum 
allocator, leaving the first unused cell in SAJRRAY. Thus SARRAY 
etnd EARRAY bracket the core not used by the paiging logic after 
an INTT, while BSTORG and ESTORG bracket the core available to 
it before an INIT. 

3. String handling functions 

A string is described by a four word descriptor which 
specifies the beginning and end of the area assigned to the 
string, the reader pointer, and the writer pointer. The function 
SETUP( string name, size) will obtain a block of the specified 
size and Set up the descriptor pointed to by the string name to 
point to that block. If the name contains 0, a descriptor will 
also be created. The alternate form SETUP( string name, size, 
expression) will make a descriptor which points to the specified 
number of characters starting with the word pointed to by the 
expression. The storage allocator is not invoked (except maybe 
to create the descriptor); it is the programmer's responsibility 
to ensure that the proper amount of space is in fact available. 

To set the reader and writer pointers of a string, use 
SETS(name, expression, expression). The first expression specifies 
the reader pointer, the second the writer pointer (which must be 
greater; if it is not, the reader pointer is set equal to the 
writer pointer). Characters are nimbered starting at 0. To set 
the reader pointer only, use SETR(name, expression). To set the 
writer pointer only, use SETW(name, expression). To obtain the 
length of a string (writer pointer - reader pointer) use 
LENGTH(name). None of these functions except LENGTH has a 
meaningful value. 

To get the next character from a string and increment the 
reader pointer, use GCl(name). If there is no next character, 
there will be an error comment and a halt. To avoid this, use 
the alternate form GCl(name, expression) which evaluates the 
specified expression on failure. Often it will be a GOTO, but 
it need not be. This convention is also used for the next four 
functions. GCD(name) reads a character from the end of the 
string and decrement the writer pointer. WCl(expression, name) 
writes the character specified by the expression on the string 
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specified by the name. It fails if there is no room. 
WCD(expression, name) writes the character on the front of the 
string, at the location of the reader pointer, and fails for 
the same reason. These functions have the character written 
as their value. APPEm)(naroe, name) appends the second string 
to the first one, and fails if there is not room. It has no 
meaningful value. GC(name) yields the next character of the 
string, but does not advance the reader pointer. It never fails, 
but yields Junk if the string is empty. 

The expression a«-b (where a and b are string names) simply 
moves the contents of b (presumably a pointer to a descriptor) 
into a. To copy the descriptor, the BCOPY function can be used, 
since string descriptors are just k word blocks: BCOPY(b,a). 
To copy the string, use SCOPY(b,a). a will be initialized first 
as though SETS(a,0,0) had been executed. 

To cohvert a string S to a number, write CSN(S). To 
convert a number N to a string S, write CWS (N,S); This 
converts a signed number to its decimal representation, producing 
only enough digits to accurately represent the number. 

k. File -naming functions 

A file is opened for input with INFILE( string name, expression); 
the string contains the full name of the file. This function 
requires the presence of an expression which is evaluated in 
case of failTxre. Its value is the file ntimber. OUTFIIjE(name, 
expre s s ion [, express ion]) does the same thing for output. The 
second expression is the option word which BRS l6 takes in A. 
It will be assumed to be if not supplied. Both of these 
operations leave in the location FTYPE the type word returned 
by the BRS, in case of failure, the error word returned by the 
BRS is in location ERROR. 

To acquire file names, use INNAME(name, expression) and 
OUTNAMFUname, expression), both of which collect the name from 
the teletype and write it on the end of the string supplied. 
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""" Both evaluate the expression in the event of failure, and have 

the terminating character as value. 

To close a file, do CLOSE (express ion ) ; the expression's 
value should be the file number. To close all files, do 
CLOSALL (). 

5. Input-output functions 

To read a character, use CIN(expression); the value of the 
expression should be the file number. This function simply 
does a CIO. Its value is the character read. To write a character, 
use COUT(expression[, expression]); file 1 is assumed if not 
specified. This function has the character written as argument. 
To read and write a'-string,' use WIN and WOUT in exactly the same 
way. To write a string, use S0UT(n8me[,filel ). To write carriage 
returns, use CRIjF(expression[,file] ); the expression specifies 
how many should be written. 
(^^) To read a number, use IIN(file[, radix]). Decimal radix 

is assumed. To write a nianber, use I0UT( express ion). Extra 
arguments, in order, are the file (l assumed), the radix 
(10 assumed) and the number of characters to be written (-1 or 
free format assumed). Characters are discarded from the left; 
the number is filled out on the left with blanks. A sign is 
supplied if the number is negative. 

6. Miscellaneous functions 

There are three argumentless special functions of general 
interest. INITIALIzaS ( ) initializes the QSPL storage allocator, 
tailing all the space between the contents of BSTORG and the 
end of core for itself. The GO command automatically sets up 
BSTORG to point lOOB cells beyond the end of the program. If 
you want some space for patches or whatever it is all right 
to increase it. 

Since the GO command does not call INITIALIZE, the compiler 
C-) provides an INITIALIZE as the first instruction of the user's 
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<LQAD name, name, . . . ,name. 

loads the specified files with DDT after installing the QSEL 
runtime first. The files should be ordinary legal DDT binaries; 
they need not have been produced by QSPL. When the last file 
has been loaded, the remainder of core is automatically assigned 
to the invisible storage allocator array called SABRAY. It 
should not be used by the programmer. Note that QSPL binaries 
can be loaded by an independent DDT if desired. If they use 
no runtime features they will run without difficulty. Alternatively, 
the runtime can be supplied manually. Appendix A explains how to 
do this. Note that rvintirae features are invoked by every built- 
in function except CIN, COUT, WIN, WOUT, CLOSE and CLOSALL, by 
the use of strings for arithmetic, and by array declarations. 
Except for these features, only the call pop need be supplied. 
It is the first one; a BRU* in location 100 will suffice. 

<G0 

transfers control to DDT. If the program does not call INITIALIZE, 
do not forget to do INIT; U before rxmning it. 

<EDIT file name 

transfers control to QED after reading in the specified file. 
Thus, an edit, compile and load sequence can be achieved 
without ever leaving the shelter of the QSPL command language. 

The compiler contains a number of internal tables whose 
overflow is not checked for. These tables have been allocated 
rather generously, but could be overwhelmed by an excessively 
grandiose statement. To avoid such a disaster, it would be 
wise to limit the length of statements to 2 or 3 lines. 
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APPENDIX A 
Runtime Details 

At the end of this appendix is a complete list of the 
runtime pops: opcodes, mnemonics, and calling sequences. The 
body of the appendix is devoted to a description of QSPL 
conventions for strings, core allocation, and drum allocation. 
Note that programs which do not use: 

strings 

any special functions other than CDT, COUT, WIN, WOUT, 
CLOSE, CLOSALL 

declarations of non-fixed arrays or PAGED quantities 
can run without any of the runtime except the CALL pop, vhich 
is opcode 100. Putting BRU* into location 100 will take 
care of it. 

To load the QSPL runtime with an independent DDT, rather 
than with the LOAD command in QSPL, simply load the file ()QRUN 
with ;T like any other binary file. Before running the program, 
put into the cell SARRAY (declared external in the runtime) 1+ 
the address of the first available cell of core, into ESTORG 
the last available cell of core. When the INIT pop is executed, 
the QSPL allocator will take over all of core between ( SARRAY) 
and (ESTORG). If the program does not call the INITIALIZE 
function, be sure to do IWIT;U before starting it up if you 
make any use of the storage allocator. 

Strings 

A QSPL string descriptor consists of four words, each of 
which is a character pointer (3* word address +0, 1 or 2). 
They are: 

pointer to character before first character of space 
allocated to string. 

reader pointer for string. 

writer pointer for string. 

pointer to last character of space allocated to string. 
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ISD creates such a descriptor. RSD, RSR and RSW set reader and 
writer pointers. Characters are counted from 0. RCS reads the 
characters between reader and writer pointer, WCS writes 
characters between writer and end pointers. RGB reads characters 
between writer and reader pointers. WCB writes characters 
between reader and beginning pointers. A variable declared 
STRING must contain the address of a descriptor when it is used 
in a string operation. 

Paging I<?g;ic 

A valid drum address has bit 3 off and bit k on; bits 0-2 
are ignored and bits 5-23 comprise the actual virtual address. 
CEA and CEI are used to translate such addresses into core 
addresses; if the desired page is not in core, it is read in 
(which usually involves writing out some other page). CEAS 
and CEIS do the same, except that they also set a flag associated 
with the buffer to ensure that the page will be rewritten on the 
drum before a new one is brought into the buffer. 

Core Storage Allocation 

A block allocated by a (non-fixed) array declaration or by 
a single -argument call of MAKE contains one more word than was 
requested by the user. The extra word, which is the one immediately 
preceding the zeroth word of the block, contains the total length 
of the block, including the extra word. The top two bits are 
used by the storage allocator: 

bit is on if the block is free. 

bit 1 is on if the next lower block Is free. 
Blocks allocated by a FIXED ARRAY declaration or a two-argument 
call of MAKE do not have this extra word. 
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An array being used for storage allocation (i.e. one set 
up by SETARRAY, or the SARRAY array) has the following form: 
Word Contents 

-1 Length + flag bits. See above. 

Bead size, or for an array which allocates 

variable sized beads (or blocks). 

1 Address of routine to call when free space 

is exhausted. This word may be set by 
the programmer. The system does a CALL* 
through it. 

2 Pointer to master free list (or just to 

free list for arrays allocating fixed 
sized blocks). 

3 Free space to be allocated. 

The free list for a fixed block size array starts at the 
second word of the array, is linked thro\igh the first word of 
each free block, and terminates with a zero. 

The master free list for a variable block size array uses 
one block for each block size. Three words of this block are 
used. 

-1 Length + flag bits. 

Back-pointer. Terminates at 0th word of array. 

1 Pointer to slave-free list for this block size. 

2 Pointer to next b3x>ck on master free list. 
The blocks on a slave-free list are all of the same size. 

Two words of each are used. 

-1 Length + flag bits. 

Back pointer on slave-free list. 

1 Forward pointer on slave-free list, or 0. 
The last entry on the master free list may be for block 

size 2. In this case the third word is not available, but it 
is not needed, since the master free list is sorted by decreasing 
block size, and the smallest possible block size is 2. 
The situation is illustrated in Figure 1. 
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Main Array 



10-Word Beads 



VWord Beads 



2-Word Beads 



SARRiff 



N 



TRAP 



01 







QIA 



11 



SARRAY 



QIA 



02 






11 



01 



QIB 



11 



OlA 






01 







03 



02 



03A 



03 



03B 



03A 



Q3C 



03B 







Figure 1: Pointer structure for an array allocating 
veiriable size blocks. The top row is the 
master free list, the.eoluxnns slave free lists, 
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QSPL RUMTIME POPS 



* on mnemonic means the^t all central registers not used to retiirn results 
are destroyed. 

+ on mnemonic means that all central registers are cleaxed. 



Code 



Mnemonic 



Function 



100 
101 

102 
103 

loll- 

105 
106 



lOT 



110 



111 



CALL 

*NSC 

/" 
/ 

/ 
/ 

/+FIO 



*FTL 



*SGO 



*Air 



*AOF 



*OIF 



*00F 



Function call. The definition is just BRU* 0. Thus 
F(A,B) complies LDA A; LDB B; CALL^«' F 

Nximeric to string conversion. (A) = original integer, 
(Q) = string description address. CNS (A, S) compiles 
LDA A; NSC S 

Print string starting at Q on teletype with BRS "ik. 
Not output hy compiler 

Output integer to file. (Q) = file number, (A) = 
signed integer, (B) = radix, (X) = number of 
characters to output (-1 means free format) 
I0UT(A,F,R,G) compiles LDA A; LDB R; MX G; FIO F 

Integer input to A, terminating character, to B. 

(Q) = file ntimber, (a) = radix. A<r- IIN(F,R,) compiles 

LDB R; FIX F; STA A. 

String output, (q) = string descriptor address, 
(a) =^ file number. S0UT(S,F) compiles LDA F; SGO S 

Accept input file name. (Q) = string descriptor 
address. The file name is written on the end of the 
string. Return terminating character to A. No skip 
if name not recogaized. T<— INWAME(S,GOTO t) compiles 
AIF S; BRU* F; STA T 

Accept output file name. See AIF. 
T^ OUTNAME(S,GOTO F) compiles AOF S; 
BRU* F; STA T 

Open input file. (Q.) = string descriptor address. 
The string should contain the name. Return file 
number to A, type to cell FTYPE. No skip if file 
csinnot be opened, error code to cell ERROR 
N<S^INFILE(S, GOTO F) compiles OIF S; BUR* F; 
STA N. 

Open output file. See OIF, and (A) = option 
word for BRS l6 (See R-2l). 

N<-OUTFILE(S,GOTO F, Z) compiles LDA Z; OOF S; 
BRU* F; STA N. 
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112 



^Hf 



113 



*SNC 



115 
10.6 



EERR 
*RCN 



*RCS 



117 



120 



121 



122 



«WCS 



*RCB 



*WCB 



+ISD 



123 



+RSD 



(Q) = destination bead address. (A) = soiirce bead 
address. Copies words from (A) to (A)+((A)-1)-1 
inclusive into words from (Q) to (Q)+((A)-1)-1. 
C0K(A,B) compiles LDA A; CPJf B 

String to numeric conversion, (q) = string 
descriptor address. Converts the (possibly signed) 
decimal number on the front of the string to binary 
and leaves it in A. The string descriptor points 
to the first character aflier the number. A CSN(S) 
SNC S; STA A. 

Runtime error. Q ( not (q)) is the error n-umber. 

Read character, no motion. (Q) = string descriptor 
address. Reads the character following the one 
addressed by the descriptor to A. The descriptor is 
not changed. GC(S) compiles RCW S 

Read character from string. (Q) = string descriptor 
address. Reads the character following the one 
addressed by the descriptor into A, increments the 
descriptor to point to the character. Skip if 
string is not empty. GCl(S,GOTO F) compiles RCS S; BRU* F 

Write character from string. See RCS, but writes 
character from A. Skip if space left in string. 
WCI(C,S,G0T0 F) compiles LDA C; WCS S; BRU« F 

Read character backwards. See RCS, but reads the 
character which would have been written by the last 
WCS. GCD(S,GOTO F) compiles RGB S; BRU* F. 

Write character backwards. See RCS but writes (A) 
into the string so that it will be read by a following 
RCS. WCP(C,S,GOTO F) compiles LDA C; WCB S; BRU* F 

Initialize string descriptor. (Q) = (in which case 
allocate a four word block) or string descriptor 
address, (A) = address or (in which case (B)+2/3 
words will be allocated automatically), (B) = niimber 
of characters. Sets up string descriptor at location 
addressed by (q) (allocating the necessary U-word 
block and putting its address into Q if necessary) 
pointing to a(B) character string starting at (A). 
SETUP(S,Z,W) compiles LDA W; LDB Z; ISD S 

Reset string descriptor, (q) = string descriptor 
address, (A) = character number to set read pointer 
to (b) = character number to set write pointer 
to. SETS(S,R,W) compiles LDA R; LDB W; RSD S 
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121+ 



*LKG 



125 



+CPS 



126 



*AFB 



127 



J 130 



+RFB 



+IFB 



Length of string, (q) = string descriptor address. 
Number of Characters between read and write pointers 
(i.e. number of RCS operations which can be done 
without a no skip return) returned in A. 
T<r-LENGTH(S) complies LPG S; STA T 

Copy string. (Q) = string descriptor address for des- 
tination, (X) for source. Copies source string to 
destruction string. Skip return if there is enough 
room. Source string is not altered. APFEKD 
(A,B,GOTO F) compiles LDX A; CPS S; BRU4«- F 

Allocate fixed block. (Q) --= address of array, (A)= 
block size. Allocates a block of size (A) from the 
array, which must previously have been initialized 
by IFB for blocks of this size. Error if the 
block size is wrong. Retixrns address of block in A. 
T«-MAKE(S,A) compiles IDA S; AFB A; STA T 

Release fixed block, (q) = address of array, (A)= 
block address. Inverts AFB. FREE(T,A) compiles 
LDA T; RFB A 

InitiAlize fixed array. (Q,) = address of array, 
(a) -- block size. Sets up the specified array 
(lenght must be in (Q,)-1) so that AFB and RFB 
can allocate and free blocks of the specified size. 
SETARRAY(S,A) compiles LDA S; IFB A. 



131 
132 



+INIT 
*AVB 



133 
13^^ 

135 

136 

137 



+RVB 



CRLF 



+RSR 



+RSW 



ESC 



Initialize runtime. 

Allocate variable block. (Q) - address of array, 
(a) = block size. Allocates a block of specified 
size from the array, •which must be set up properly. 
INIT sets up SARRAy, which is the only array the 
compiler will address with the pop. 
T<r-MAKE(S) compiles LDA S; AVB SARRAY; STA T 

Release variable block. Same as RFB for SARRAY. 
Inverts AVB. FREE(T) compiles LDA T; RVB SARRAY. 

Generate (A) , carriage rettirns and line feeds on 
file (q). Clears A and B but preserves X. 
CRLFCNjF) compiles IDA IT; CRLF F 

Reset string read pointer. Same as RSD for read 
pointer only. SETR(S,R) compiles LDA R; RSR S 

Reset string write pointer. Same as RSR for write 
pointer. SETW(S,W) compiles IDA W; RSW S 

Establish string constant. (Q) as for ISD. The 
word after the ESC contains a character count, the 
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lifO 



CEA 



l4l 



CEI 



11+2 



l43 



Ikk 



CEAS 



CEIS 



*APB 



1^5 



+MRF 



following words the characters packed 3/word. The 
string descriptor is set to point to this string 
and control returns to the word following the last 
word of the string. 
S<- "ABCD" compiles ESC S; DATA k; ASC 2, ABCD. 

Compute effective address for paged object. (Q)= 
drtun address. Core address of object returned in 
X. A preserved, B destroyed. The validity of the 
core address is guaranteed only until the next 
paged storage pop. Use CEAS if oijject is to be 
modified. A<— P.X conrpiles CEA P; LDA X,§; STA A. 

Compute effective address, indexed. Same as CEA 
except that (x) is added to (Q) to get drum 
address. Use CEIS if object is to be modified. 
Afc-P[l] compile LEK I; CEI P; IDA 0,2: STA A 

Compute effective address for above. Same as 
CEA, but for storing into object. P.X*rA compiles 
LDA A;CEAS P; STA X,2 

Compute effective address, indexed for store. 
Same as CEI, but for storing into array. 
P[I]«-A compile LDA A; UK J; CEIS P; STA 0,2. 

Allocate paged block. (Q)=drum address near which 
block, will be assigned if possible, (A) =block size. 
Address of block returned to A. If the block size 
is less than the page size-5, the block will lie 
entirely on one page; hence, the core address can 
be used directly as a base address to access all 
the words of the block. Otherwise, a separate 
CEA or CEI is required for each reference. A 
PMAKE(N,X) compiles LDA N; APB X; STA A 

Miscellaneous runtime functions. The effective 
address Q ( not (Q)) determines the function. The 
following values of Q are currently in use: 



1 (lock) (A)=drum address. The page on which 

this address lies is brought into core 
if not already there, and a lock count 
on the page buffer is incremented, pre- 
venting the page from leaving core. 
The core address is retruned in A, 
X<^L0CK(Y) compiles LDA Y; MRF I; STA X 



r 
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li^ 



Ihl 



omB 



QSBRM 



2 (UNWCK) (a) =cca-e address. The lock couKfc 

on the buffer is decremented; the 
corresponding drvm address is stored 
in EADIR and the old value of the 
lock count is returned in A. 
XEUMWDCK(Y) compiles IJ)A Y; MRF 2; sm X 

3 (BHJT) (a) =core address. The page buffer 

is returned for use by the in- core 
storage allocator. All registers are 
cleared. BHJT(X) contplles WA X; MECF 3 

k (BGIT) (a) = core address, tftie page buffer 
is taken back from the in- core storage 
allocator for use by the paging logic. 
All registers axe cleared. 1GET(X) 
compiles IiDA X; MRF h 

This is exactly the same as the BBS SYSFOF, but 
also stores the final contents of the central 
registers in cells SYSA, SYSB, and SYSX, 
BRS(l2,l5,-l) compiles LDA =1; IJ3X=-1; QBRS 12. 

This is exactly the same as the SBRM SYSPOP, 
but also stores the final contents of the 
central registers in cells SYSA, SYSB, and 
SYSX. A<-SBRM(F,X) coinpiles IMX; QSBKM f ; 
STA A 
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Reserved Words. 
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AND 

APPEND 

AERAT 

BCOFY 

BGET 

BINARY 

BPUT 

BRS 

BY 

CIN 

CLOSE 

CLOSALL 

CODE 

COOT 

CMS 

CRLF 

CSN 

DECLARE 

DO 

ELSE 

END 

ENTRY 

EOR 

EXIT 

EXTERNAL 

FIELD 

FIXED 

FOR 

FREE 

FROM 

FUNCTION 



GC 

GCD 

GCI 

GOTO 

HALT 

IDENT 

IF 

IIN 

IHFILE 

INITIALIZE 

INNAME 

INTEGER 

lOOT 

LCY 

LEaJGTH 

LINK 

LIST 

LOCAL 

LOCK 

LSH 

MAKE 

MOD 

NOLIST 

NOT 

OR 

OUTPILE 



OUTNAME 

PARAMETER 

PMAKB 

RCY 

RETURN 

RSH 

SHRM 

scopy 

SETARRAY 

SETR 

SETS 

SETUP 

SETW 

SOURCE 

SOOT 

STRING 

THROUGH 

THRU 

TO 

UNLOCK 

WCD 

WCI 

WHERE 

WHILE 

WIN 

WOOT 
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AWEHDIX C 
StMidMrd External SyniboXt 



BSTORG 
MRRAY 

ERROR 
ESTORG 
PTYHE 
NPB 

NPC 
NKJ 

KH. 
NUP 
EftDDR 
KyiT 

m 

SARRAf 

SYSA 
SYSB 
SYSX 



Pirtt word of storage available to HJIf . 

Last word not used for page buffers or tables 

after HUT. 

Error codes left here by INPlLi and OUfFUM. 

Last word of storage available to WIT. 

Pll« type left here by INPIUE and OOTPHE. 

Hunber of core buffers for paging. ■ all 
available space. 

Nuniber of categories for pagli:^. 

Desired, aiaa^ of dr«fl address space/2^^^. 

mPG < 2'*'^''"*^^. 

7&ge size as power of 2. 8 < NPt < 11. 

Ntnnber of unlocked pages. 

Drxm address of unlocked page. 

Category to be used by IMAKE. = don't care. 

> if paging logic uses HRH, < if it uses 
Ike random file /iQPnAm 

Address of second word not used for page buffers 

or tables after HOT?. 

Saved A register after BRS or Smtl. 
Ssmid B register 
Saved X register 



